home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / BACCAR.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  12.5 KB  |  282 lines
  1. 10 PRINT"[147]BACCARAT[146]":FOR Y=0 TO 29 :READ X:K=K+X:PRINTCHR$(X);:NEXT:IFK<>1966THENNEW
  2. 20 TT=100:K=0:X=0
  3. 30 DIM A$(52) ,B$(52),C$(52)
  4. 40 INPUT"WHAT IS YOUR NAME";NA$
  5. 50 NA$=LEFT$(NA$,8)
  6. 60 GOSUB 1680
  7. 70 PRINT"[147]"
  8. 80 PRINT"                                                       BACCARAT
  9. 90 [153]"CONT YOUR PRESENT TOTAL          CMDCMDCMDCMDCMDCMDCMDCMDCMDCMD   CMD$";TT
  10. 100 [133]"CONT ENTER YOUR BET";BET
  11. 110 [139] BET[177]TT    [167] 100
  12. 120 [133]" PWAITLAYER OR BWAITANKER";PL$
  13. 130 TY[178]0
  14. 140 [133]"  AMOUNT OF BET ON A TIE";TY
  15. 150 [153]"LOADYOUR BET IS $";BET;
  16. 160 [139][200](PL$,1)[178]"P"[167][153]" ON THE PLAYER"
  17. 170 [139][200](PL$,1)[178]"B"[167][153]" ON THE BANKER"
  18. 175 [139] TY[177]0 [167] [153]"AND $";TY ;" ON A TIE
  19. 176 IF TY<=0 THEN PRINT"     "
  20. 180 PRINT:PRINT " AND YOUR BALANCE IS NOW $";TT-BET-TY
  21. 190 A=INT(RND(1)*52)+1
  22. 200 B=INT(RND(1)*52)+1
  23. 210 C=INT(RND(1)*52)+1
  24. 220 D=INT(RND(1)*52)+1
  25. 230 E=INT(RND(1)*52)+1
  26. 240 F=INT(RND(1)*52)+1
  27. 250 IF(A/5)<1THEN PL=PL+1:GOTO 350
  28. 260 IF(A/21)<1 THEN PL=PL+0:GOTO 350
  29. 270 IF (A/25)<1 THEN PL=PL+9:GOTO350
  30. 280 IF (A/29)<1 THEN PL=PL+8:GOTO350
  31. 290 IF (A/33)<1 THEN PL=PL+7:GOTO350
  32. 300 IF (A/37)<1 THEN PL=PL+6:GOTO350
  33. 310 IF (A/41)<1 THEN PL=PL+5:GOTO350
  34. 320 IF (A/45)<1 THEN PL=PL+4:GOTO350
  35. 330 IF (A/49)<1 THEN PL=PL+3:GOTO350
  36. 340 IF (A/53)<1 THEN PL=PL+2:GOTO350
  37. 350 DATA87,82,73,84,84,69,78,32,66,89
  38. 360 IF(B/5)<1THEN PL=PL+1:GOTO 460
  39. 370 IF(B/21)<1 THEN PL=PL+0:GOTO 460
  40. 380 IF (B/25)<1 THEN PL=PL+9:GOTO460
  41. 390 IF (B/29)<1 THEN PL=PL+8:GOTO460
  42. 400 IF (B/33)<1 THEN PL=PL+7:GOTO460
  43. 410 IF (B/37)<1 THEN PL=PL+6:GOTO460
  44. 420 IF (B/41)<1 THEN PL=PL+5:GOTO460
  45. 430 IF (B/45)<1 THEN PL=PL+4:GOTO460
  46. 440 IF (B/49)<1 THEN PL=PL+3:GOTO460
  47. 450 IF (B/53)<1 THEN PL=PL+2:GOTO460
  48. 460 DATA 13,75,69,78,78,69,84,72,32,87
  49. 470 IF(C/5)<1THEN BA=BA+1:GOTO 570
  50. 480 IF(C/21)<1 THEN BA=BA+0:GOTO 570
  51. 490 IF (C/25)<1 THEN BA=BA+9:GOTO570
  52. 500 IF (C/29)<1 THEN BA=BA+8:GOTO570
  53. 510 IF (C/33)<1 THEN BA=BA+7:GOTO570
  54. 520 IF (C/37)<1 THEN BA=BA+6:GOTO570
  55. 530 IF (C/41)<1 THEN BA=BA+5:GOTO570
  56. 540 IF (C/45)<1 THEN BA=BA+4:GOTO570
  57. 550 IF (C/49)<1 THEN BA=BA+3:GOTO570
  58. 560 IF (C/53)<1 THEN BA=BA+2:GOTO570
  59. 570 REM
  60. 580 IF(D/5)<1THEN BA=BA+1:GOTO 680
  61. 590 IF(D/21)<1 THEN BA=BA+0:GOTO 680
  62. 600 IF (D/25)<1 THEN BA=BA+9:GOTO680
  63. 610 IF (D/29)<1 THEN BA=BA+8:GOTO680
  64. 620 IF (D/33)<1 THEN BA=BA+7:GOTO680
  65. 630 IF (D/37)<1 THEN BA=BA+6:GOTO680
  66. 640 IF (D/41)<1 THEN BA=BA+5:GOTO680
  67. 650 IF (D/45)<1 THEN BA=BA+4:GOTO680
  68. 660 IF (D/49)<1 THEN BA=BA+3:GOTO680
  69. 670 IF (D/53)<1 THEN BA=BA+2:GOTO680
  70. 680 IF PL>10 THEN PL=PL-10
  71. 690 PRINT"";C$(A);
  72. 700 FOR T=1 TO 1000:NEXT:PRINT" [145][145][145][145][145][145]";C$(B)
  73. 710 IF PL>9 THEN PL=PL-10
  74. 720 PRINT"[152]PLAYER":PRINT"SCORE";PL:
  75. 730 FOR T=1 TO 1500:NEXT
  76. 740 PRINT"";C$(C);
  77. 750 FOR T=1 TO 1000:NEXT:PRINT" [145][145][145][145][145][145]";C$(D)
  78. 760 PRINT"[152]PLAYER":PRINT"SCORE";PL
  79. 770 IF BA>9  THEN BA=BA-10
  80. 780 PRINT"[150]BANKER":PRINT"SCORE";BA
  81. 790 IF PL=8 THEN PRINT"NATURAL ";PL:GOTO 1440
  82. 800 IF PL=9 THEN PRINT"NATURAL ";PL:GOTO 1440
  83. 810 IF PL=6 THEN PRINT"STAND":GOTO 1010
  84. 820 IF PL=7 THEN PRINT"STAND":GOTO 1010
  85. 830 IFBA=8ORBA=9THENPRINT"NATURAL":GOTO940
  86. 840 IF(E/5)<1THEN PL=PL+1:CD$="ACE":               GOTO 940
  87. 845 DATA 69,76,75,69,82,13,13,13,13,142
  88. 850 IF(E/21)<1 THEN PL=PL+0:CD$="TEN":                 GOTO940
  89. 860 IF (E/25)<1 THEN PL=PL+9:CD$="NINE":      GOTO940
  90. 870 IF (E/29)<1 THEN PL=PL+8:CD$="EIGHT":       GOTO940
  91. 880 IF (E/33)<1 THEN PL=PL+7:CD$="SEVEN":     GOTO940
  92. 890 IF (E/37)<1 THEN PL=PL+6:CD$="SIX":               GOTO940
  93. 900 IF (E/41)<1 THEN PL=PL+5:CD$="FIVE":                 GOTO940
  94. 910 IF (E/45)<1 THEN PL=PL+4:CD$="FOUR":    GOTO940
  95. 920 IF (E/49)<1 THEN PL=PL+3:CD$="THREE":   GOTO940
  96. 930 IF (E/53)<1 THEN PL=PL+2:CD$="TWO":  GOTO940
  97. 940 IF PL>10 THEN PL=PL-10
  98. 950 IF BA=8 OR BA=9 THEN 980
  99. 960 FOR T=1 TO 1000:NEXT
  100. 970 PRINT"";C$(A);" [145][145][145][145][145][145]";C$(B);" [145][145][145][145][145][145]";C$(E)
  101. 980 PRINT"[152]PLAYER":PRINT"SCORE";PL
  102. 990 IF BA>10 THEN BA=BA-10
  103. 1000 PRINT"[150]BANKER":PRINT"SCORE";BA
  104. 1010 REM......CHECK IF BANKER GETS TO                 DRAW A CARD
  105. 1020 IF CD$="" AND PL=6 AND BA=6 THEN 1510
  106. 1030 IF CD$="" AND PL=7 AND BA=6 THEN 1510
  107. 1040 IF BA=3 AND CD$="EIGHT" THEN CD$="":GOTO 1440
  108. 1050 IF BA=4 AND CD$="EIGHT" THEN CD$="":GOTO 1440
  109. 1060 IF BA=4 AND CD$="ONE" THEN CD$="":GOTO 1440
  110. 1070 IF BA=4 AND CD$="NINE" THEN CD$="":GOTO 1440
  111. 1080 IF BA=4 AND CD$="TEN" THEN CD$="":GOTO 1440
  112. 1090 IF BA=5 AND CD$="ONE" THEN CD$="":GOTO 1440
  113. 1100 IF BA=5 AND CD$="TWO" THEN CD$="":GOTO 1440
  114. 1110 IF BA=5 AND CD$="THREE" THEN CD$="":GOTO 1440
  115. 1120 IF BA=5 AND CD$="EIGHT" THEN CD$="":GOTO 1440
  116. 1130 IF BA=5 AND CD$="NINE" THEN CD$="":GOTO 1440
  117. 1140 IF BA=5 AND CD$="TEN" THEN CD$="":GOTO 1440
  118. 1150 IF BA=6 AND CD$="SIX" THEN CD$="":GOTO 1210
  119. 1160 IF BA=6 AND CD$="SEVEN" THEN CD$="":GOTO 1210
  120. 1170 IF BA=8 THENCD$="":GOTO 1510
  121. 1180 IF BA=9 THENCD$="":GOTO 1510
  122. 1190 GOTO 1210
  123. 1200 GOTO 1510
  124. 1210 REM ......THIS IS 3RD CARD FOR                    BANKER
  125. 1220 IF(F/5)  <1THEN BA=BA+1:GOTO1320
  126. 1230 IF(F/21)<1 THEN BA=BA+0:GOTO1320
  127. 1240 IF (F/25)<1 THEN BA=BA+9:GOTO1320
  128. 1250 IF (F/29)<1 THEN BA=BA+8:GOTO1320
  129. 1260 IF (F/33)<1 THEN BA=BA+7:GOTO1320
  130. 1270 IF (F/37)<1 THEN BA=BA+6:GOTO1320
  131. 1280 IF (F/41)<1 THEN BA=BA+5:GOTO1320
  132. 1290 IF (F/45)<1 THEN BA=BA+4:GOTO1320
  133. 1300 IF (F/49)<1 THEN BA=BA+3:GOTO1320
  134. 1310 IF (F/53)<1 THEN BA=BA+2:GOTO1320
  135. 1320 PRINT"";C$(A);
  136. 1330 FOR T=1 TO 1000:NEXT:PRINT" [145][145][145][145][145][145]";C$(B)
  137. 1340 IF PL>9 THEN PL=PL-10
  138. 1350 PRINT"[152]PLAYER":PRINT"SCORE";PL
  139. 1360 FOR T=1 TO 1500:NEXT
  140. 1370 PRINT"";C$(C);
  141. 1380 FOR T=1 TO 1000:NEXT:PRINT" [145][145][145][145][145][145]";C$(D);
  142. 1390 FOR T=1 TO 1000:NEXT:PRINT" [145][145][145][145][145][145]";C$(F)
  143. 1400 PRINT"[152]PLAYER":PRINT"SCORE";PL
  144. 1410 IF BA>9  THEN BA=BA-10
  145. 1420 PRINT"[150]BANKER":PRINT"SCORE";BA
  146. 1430 GOTO 1510
  147. 1440 REM..... NATURAL FOR PLAYER                      NO DRAW FOR BANKER
  148. 1450 GOTO 1510
  149. 1460 GOTO 1500
  150. 1470 PRINT"[152]PLAYER":PRINT"SCORE";PL
  151. 1480 IF BA>10 THEN BA=BA-10
  152. 1490 RETURN
  153. 1500 REM
  154. 1510 FOR X=1704 TO 2023:POKEX,32:NEXT
  155. 1520 PRINT"THE WINNER IS";
  156. 1525 IF BET>0 THEN KA$=" LOOSES "
  157. 1530 IF PL>BA THEN PRINT" THE PLAYER[154] ":IF LEFT$(PL$,1)="P" THEN KA$=" WINS "
  158. 1540 IF BA>PL THEN PRINT" THE BANKER[154] ": IF LEFT$(PL$,1)="B" THEN KA$= " WINS "
  159. 1550 IF BA=PL THEN PRINT" IT'S A TIE [154]"
  160. 1560 IF LEFT$(PL$,1)="P" AND PL> BA THEN TT=TT+(2*BET)
  161. 1570 IF BET<5 THEN IF LEFT$(PL$,1)="B"THENIF BA>PL THEN TT=TT+(2*BET):TT=TT-.25
  162. 1580 IF BET>=5 THEN IF LEFT$(PL$,1)="B"THEN IF BA>PL THEN  TT=TT+(BET*.95)+BET
  163. 1590 IF TY>0 THEN TT=TT-TY
  164. 1595 IFTY>0  THEN  IF BA<>PL THENPRINT   " AND ";NA$; KA$;BET
  165. 1596 IFTY= 0 THEN  PRINT" AND ";NA$; KA$;BET
  166. 1597 IFTY>0  THEN  IF BA= PL THENPRINT   " AND ";NA$;" WINS ON THE TIE ";TYE*9
  167. 1600 IF TY>0 AND BA=PL  THEN TT=TT+(TY*9)
  168. 1610 TT=TT-BET
  169. 1620 IFTT<=0 THEN       PRINT"YOU ARE BROKE GAME IS OVER":END
  170. 1630 IFTT>0 THEN       PRINT"YOUR TOTAL IS NOW";TT
  171. 1640 PRINT"HIT SPACE[146]  KEY "
  172. 1650 GET A$:IF A$<>" " THEN 1650
  173. 1655 PL=0:BA=0:PL$="":TYE=0:BET=0
  174. 1660 GOTO 70
  175. 1670 END
  176. 1680 A$(1)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]A [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  177. 1690 B$(1)="[144][180][170][157][157][157][157][157][157][157][180] A[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  178. 1700 A$(2)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]A [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  179. 1710 B$(2)="[144][180][170][157][157][157][157][157][157][157][180] A[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  180. 1720 A$(3)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]A [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  181. 1730 B$(3)="[144][180][170][157][157][157][157][157][157][157][180] A[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  182. 1740 A$(4)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]A [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  183. 1750 B$(4)="[144][180][170][157][157][157][157][157][157][157][180] A[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  184. 1760 A$(5)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]K [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  185. 1770 B$(5)="[144][180][170][157][157][157][157][157][157][157][180] K[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  186. 1780 A$(6)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]K [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  187. 1790 B$(6)="[144][180][170][157][157][157][157][157][157][157][180] K[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  188. 1800 A$(7)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]K [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  189. 1810 B$(7)="[144][180][170][157][157][157][157][157][157][157][180] K[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  190. 1820 A$(8)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]K [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  191. 1830 B$(8)="[144][180][170][157][157][157][157][157][157][157][180] K[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  192. 1840 A$(9)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]Q [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  193. 1850 B$(9)="[144][180][170][157][157][157][157][157][157][157][180] Q[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  194. 1860 A$(10)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]Q [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  195. 1870 B$(10)="[144][180][170][157][157][157][157][157][157][157][180] Q[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  196. 1880 A$(11)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]Q [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  197. 1890 B$(11)="[144][180][170][157][157][157][157][157][157][157][180] Q[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  198. 1900 A$(12)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]Q [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  199. 1910 B$(12)="[144][180][170][157][157][157][157][157][157][157][180] Q[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  200. 1920 A$(13)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]J [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  201. 1930 B$(13)="[144][180][170][157][157][157][157][157][157][157][180] J[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  202. 1940 A$(14)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]J [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  203. 1950 B$(14)="[144][180][170][157][157][157][157][157][157][157][180] J[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  204. 1960 A$(15)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]J [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  205. 1970 B$(15)="[144][180][170][157][157][157][157][157][157][157][180] J[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  206. 1980 A$(16)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]J [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  207. 1990 B$(16)="[144][180][170][157][157][157][157][157][157][157][180]J[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  208. 2000 A$(17)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]10[170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  209. 2010 B$(17)="[144][180][170][157][157][157][157][157][157][157][180]10[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  210. 2020 A$(18)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]10[170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  211. 2030 B$(18)="[144][180][170][157][157][157][157][157][157][157][180]10[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  212. 2040 A$(19)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]10[170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  213. 2050 B$(19)="[144][180][170][157][157][157][157][157][157][157][180]10[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  214. 2060 A$(20)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]10[170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  215. 2070 B$(20)="[144][180][170][157][157][157][157][157][157][157][180]10[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  216. 2080 A$(21)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]9 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  217. 2090 B$(21)="[144][180][170][157][157][157][157][157][157][157][180] 9[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  218. 2100 A$(22)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]9 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  219. 2110 B$(22)="[144][180][170][157][157][157][157][157][157][157][180] 9[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  220. 2120 A$(23)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]9 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  221. 2130 B$(23)="[144][180][170][157][157][157][157][157][157][157][180] 9[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  222. 2140 A$(24)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]9 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  223. 2150 B$(24)="[144][180][170][157][157][157][157][157][157][157][180] 9[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  224. 2160 A$(25)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]8 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  225. 2170 B$(25)="[144][180][170][157][157][157][157][157][157][157][180] 8[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  226. 2180 A$(26)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]8 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  227. 2190 B$(26)="[144][180][170][157][157][157][157][157][157][157][180] 8[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  228. 2200 A$(27)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]8 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  229. 2210 B$(27)="[144][180][170][157][157][157][157][157][157][157][180] 8[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  230. 2220 A$(28)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]8 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  231. 2230 B$(28)="[144][180][170][157][157][157][157][157][157][157][180] 8[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  232. 2240 A$(29)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]7 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  233. 2250 B$(29)="[144][180][170][157][157][157][157][157][157][157][180] 7[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  234. 2260 A$(30)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]7 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  235. 2270 B$(30)="[144][180][170][157][157][157][157][157][157][157][180] 7[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  236. 2280 A$(31)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]7 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  237. 2290 B$(31)="[144][180][170][157][157][157][157][157][157][157][180] 7[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  238. 2300 A$(32)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]7 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  239. 2310 B$(32)="[144][180][170][157][157][157][157][157][157][157][180] 7[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  240. 2320 A$(33)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]6 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  241. 2330 B$(33)="[144][180][170][157][157][157][157][157][157][157][180] 6[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  242. 2340 A$(34)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]6 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  243. 2350 B$(34)="[144][180][170][157][157][157][157][157][157][157][180] 6[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  244. 2360 A$(35)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]6 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  245. 2370 B$(35)="[144][180][170][157][157][157][157][157][157][157][180] 6[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  246. 2380 A$(36)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]6 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  247. 2390 B$(36)="[144][180][170][157][157][157][157][157][157][157][180] 6[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  248. 2400 A$(37)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]5 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  249. 2410 B$(37)="[144][180][170][157][157][157][157][157][157][157][180] 5[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  250. 2420 A$(38)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]5 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  251. 2430 B$(38)="[144][180][170][157][157][157][157][157][157][157][180] 5[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  252. 2440 A$(39)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]5 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  253. 2450 B$(39)="[144][180][170][157][157][157][157][157][157][157][180] 5[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  254. 2460 A$(40)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]5 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  255. 2470 B$(40)="[144][180][170][157][157][157][157][157][157][157][180] 5[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  256. 2480 A$(41)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]4 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  257. 2490 B$(41)="[144][180][170][157][157][157][157][157][157][157][180] 4[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  258. 2500 A$(42)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]4 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  259. 2510 B$(42)="[144][180][170][157][157][157][157][157][157][157][180] 4[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  260. 2520 A$(43)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]4 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  261. 2530 B$(43)="[144][180][170][157][157][157][157][157][157][157][180] 4[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  262. 2540 A$(44)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]4 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  263. 2550 B$(44)="[144][180][170][157][157][157][157][157][157][157][180] 4[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  264. 2560 A$(45)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]3 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  265. 2570 B$(45)="[144][180][170][157][157][157][157][157][157][157][180] 3[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  266. 2580 A$(46)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]3 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  267. 2590 B$(46)="[144][180][170][157][157][157][157][157][157][157][180] 3[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  268. 2600 A$(47)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]3 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  269. 2610 B$(47)="[144][180][170][157][157][157][157][157][157][157][180] 3[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  270. 2620 A$(48)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]3 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  271. 2630 B$(48)="[144][180][170][157][157][157][157][157][157][157][180] 3[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  272. 2640 A$(49)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]2 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][218][144][170][157][157][157][157][157][157][157]"
  273. 2650 B$(49)="[144][180][170][157][157][157][157][157][157][157][180] 2[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  274. 2660 A$(50)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]2 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][211][144][170][157][157][157][157][157][157][157]"
  275. 2670 B$(50)="[144][180][170][157][157][157][157][157][157][157][180] 2[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  276. 2680 A$(51)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]2 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][216][144][170][157][157][157][157][157][157][157]"
  277. 2690 B$(51)="[144][180][170][157][157][157][157][157][157][157][180] 2[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  278. 2700 A$(52)="[144][207][183][183][183][183][183][208][157][157][157][157][157][157][157][165]2 [170][157][157][157][157][157][157][157][157] [180]     [170][157][157][157][157][157][157][157][180][193][144][170][157][157][157][157][157][157][157]"
  279. 2710 B$(52)="[144][180][170][157][157][157][157][157][157][157][180] 2[170][157][157][157][157][157][157][157][204][175][175][175][175][175][186]"
  280. 2720 FOR X=1 TO 52: C$(X)=A$(X)+B$(X):NEXT
  281. 2730 RETURN
  282.